service X aplikace
Otázka od: Ing. Petr Sikola
12. 11. 2003 14:08
Zdravim, planuji vytvoreni service, ktery bude komunikovat po siti s
nejakymi zarizenimi.
V delphi normalne vytvorim service aplikaci. To je vse OK, chtel bych
ale umoznit take spusteni tohoto programu jako standalone aplikaci
(staci konzolova). Nechci 2 ruzne exe.
v service mam napsane toto:
procedure TAssistService.ServiceExecute(Sender: TService);
begin
while not Terminated do
begin
{ ... nejaky vykonny kod ... }
ServiceThread.ProcessRequests(False);
end;
end;
Kam mam ale napsat kod, ktery se vykona pri spusteni jako standalone app
?
V psani service jsem zacatecnik, muzete me prosim nasmerovat?
Dekuji Petr Sikola
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Ondrej Kelle
12. 11. 2003 14:28
> V delphi normalne vytvorim service aplikaci. To je vse OK, chtel bych
> ale umoznit take spusteni tohoto programu jako standalone aplikaci
> (staci konzolova). Nechci 2 ruzne exe.
Jeden priklad najdes v ScktSrvr.dpr.
HTH
TOndrej
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)